home *** CD-ROM | disk | FTP | other *** search
/ Hyper Stacks 1994 May / Hyper Stacks (Pacific HiTech)(1994)[Mac].iso / Science / Chemistry / Bonding / card_3973.txt < prev    next >
Encoding:
Text File  |  1991-11-09  |  1.9 KB  |  107 lines
  1. -- card: 3973 from stack: in
  2. -- bmap block id: 4469
  3. -- flags: 0000
  4. -- background id: 2736
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on check
  8.   global response
  9.   global number
  10.   global tries
  11.  
  12.   get background field "ans"
  13.   if it = response then
  14.     get background field "number"
  15.     add 1 to number
  16.     put number into background field "number"
  17.     --play "boing"
  18.     PUT "CORRECT!" INTO BACKGROUND FIELD "CORRECT"
  19.     show BACKGROUND field "correct"
  20.     wait 90
  21.     HIDE BACKGROUND FIELD "CORRECT"
  22.     visual effect dissolve
  23.     GO TO  CARD 2
  24.  
  25.   ELSE
  26.     PUT "TRY AGAIN" INTO BACKGROUND FIELD "CORRECT"
  27.     SHOW BKGND FIELD "CORRECT"
  28.     WAIT 90
  29.     HIDE BKGND FIELD "CORRECT"
  30.  
  31.   end if
  32.  
  33. end check
  34.  
  35.  
  36.  
  37. -- part 2 (field)
  38. -- low flags: 01
  39. -- high flags: 0004
  40. -- rect: left=251 top=189 right=274 bottom=451
  41. -- title width / last selected line: 0
  42. -- icon id / first selected line: 0 / 0
  43. -- text alignment: 1
  44. -- font id: 2
  45. -- text size: 20
  46. -- style flags: 0
  47. -- line height: 26
  48. -- part name: hint
  49. ----- HyperTalk script -----
  50. on mouseUp
  51.   hide card field "hint"
  52.   wait 4 seconds
  53.   show card field "hint"
  54. end mouseUp
  55.  
  56.  
  57.  
  58. -- part 3 (button)
  59. -- low flags: 00
  60. -- high flags: 0000
  61. -- rect: left=458 top=289 right=331 bottom=512
  62. -- title width / last selected line: 0
  63. -- icon id / first selected line: 0 / 0
  64. -- text alignment: 1
  65. -- font id: 0
  66. -- text size: 12
  67. -- style flags: 0
  68. -- line height: 16
  69. -- part name: New Button
  70. ----- HyperTalk script -----
  71. on mouseUp
  72.   go to card 2
  73. end mouseUp
  74.  
  75.  
  76.  
  77. -- part contents for background part 19
  78. ----- text -----
  79. 2
  80.  
  81. -- part contents for background part 17
  82. ----- text -----
  83. 2
  84.  
  85. -- part contents for background part 18
  86. ----- text -----
  87. CORRECT!
  88.  
  89. -- part contents for background part 4
  90. ----- text -----
  91.  
  92.  
  93.  
  94. -- part contents for background part 5
  95. ----- text -----
  96.  
  97.  
  98.  
  99. -- part contents for background part 1
  100. ----- text -----
  101. 4
  102.  
  103. -- part contents for card part 2
  104. ----- text -----
  105. Click Here
  106. for 
  107. Hint